home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / util / Mac F2C 1.3.sit / Mac F2C 1.3 / Mac F2C Libraries / libF77 Sources / pow_ci.c < prev    next >
C/C++ Source or Header  |  1995-01-28  |  345b  |  21 lines
  1. #include "f2c.h"
  2.  
  3. #ifdef KR_headers
  4. VOID pow_ci(p, a, b)     /* p = a**b  */
  5.  complex *p, *a; integer *b;
  6. #else
  7. extern void pow_zi(doublecomplex*, doublecomplex*, integer*);
  8. void pow_ci(complex *p, complex *a, integer *b)     /* p = a**b  */
  9. #endif
  10. {
  11. doublecomplex p1, a1;
  12.  
  13. a1.r = a->r;
  14. a1.i = a->i;
  15.  
  16. pow_zi(&p1, &a1, b);
  17.  
  18. p->r = p1.r;
  19. p->i = p1.i;
  20. }
  21.